home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / selectn-box.d < prev    next >
Encoding:
Text File  |  1989-10-12  |  756 b   |  26 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'selectionbox "SelectioB.h")
  4.  
  5. (prolog
  6.  
  7. "static SYMDESCR Type_Syms[] = {
  8.    { \"dialog-prompt\",       XmDIALOG_PROMPT },
  9.    { \"dialog-selection\",    XmDIALOG_SELECTION },
  10.    { \"dialog-work-area\",    XmDIALOG_WORK_AREA },
  11.    { 0, 0}
  12. };")
  13.  
  14. (define-widget-class 'selection-box 'xmSelectionBoxWidgetClass)
  15.  
  16. (define scheme->dialog-type
  17. "   return (XtArgVal)Symbols_To_Bits (x, 0, Type_Syms);")
  18.  
  19. (scheme->c 'selection-box-dialogType scheme->dialog-type)
  20.  
  21. (define-callback 'selection-box 'applyCallback   #t)
  22. (define-callback 'selection-box 'cancelCallback  #t)
  23. (define-callback 'selection-box 'noMatchCallback #t)
  24. (define-callback 'selection-box 'okCallback      #t)
  25. (define-callback 'selection-box 'helpCallback    #t)
  26.